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LETTERING PROGRAM 


DECUS Program Library Write-up DECUS No. 8-294 


ABSTRACT 

This program produces large, easily read lettering on paper tape using either the high or low 
speed punch. All printed teletype characters are included, and non-printing characters 
are ignored. The letters are eight columns high and proportional in width. If used with the 
disk monitor system, the program will return to it if a Control/C is typed. 

OPERATING INSTRUCTIONS 

The program should be loaded with the binary loader and started at 200. When the computer 
responds with *OPT-, type R to use the high speed punch or T for the low speed (teletype) 
punch. Turn on the punch and proceed to type. 

PROGRAM LOGIC 

Each character is represented by a series of numbers, terminated by a negative number. Each 
number corresponds to one frame of tape and the series corresponds to the character. Because 
the numbers representing each character are accessed through an array of pointers, the assem¬ 
bler adjusts the pointers for the width of the letters. This makes the letter particularly easy 
to modify should the user desire to do so. 

SAVING 

If used with the disk monitor system, the program should be saved with the command: 

I SAVE LETR'. 200-1423; 200 


* 






A 

0477 

AMPERS 

1132 

APOSTR 

1143 

ASTERI 

1146 

ATSIGN 

1157 

B 

0507 

BACKAR 

1171 

BACK SI 

1203 

C 

0516 

COLON 

1214 

COMMA 

1217 

CONTIN 

0327 

CONTRL 

0 34 7 

COUNT 

0340 

D 

0 52 6 

DOLLAR 

1222 

E 

0536 

ECHO 

0346 

EIGHT 

1114 

equals 

1233 

EXCLAI 

1244 

F 

0545 

FIVE 

1067 

FOUR 

1057 

G 

0554 

GREATE 

1247 

H 

0564 

HIGH 

0343 

IYIYI 

0574 

J 

0 60 3 

K 

0612 

L 

0 62 2 

LBRACK 

1265 

lessth 

1256 

LETTER 

0337 

LISN 

0276 

LOW 

0342 

LP AREN 

1273 

M 

0631 

MASK 

0354 

MESS 

0356 

MINUS 

1302 

MONITO 

0341 

MR 

0351 

MT 

0350 

M2 40 

0352 

M3 40 

0353 

N 

0644 

NINE 

1123 

NOTHIN 

0344 

N200 

0 355 

0 

0655 

ONE 

1034 

P 

0666 

PAT 

0263 

PERCEN 

1313 

PERIOD 

1324 

PLACE 

0010 

PLUS 

1327 





PRINT 0326 
PUN 0321 
PUNCH 0345 
Q 0675 

QUESTI 1340 
QUICK 0232 
QUOTE 1347 
R 0706 

RBRACK 1355 
READ 0 23 7 
RP AREN 1361 
S 0716 

SEMICO 1366 
SEVEN 1105 
SIX 1076 
SKIP 0271 
SLASH 1371 
SLOW 0225 
SPACE 1402 
START 0376 
T 0725 

TACIT 0335 
THREE 105 0 
TICTAC 1403 
TWO 1041 
TY PE 0 31 4 
U 0734 

UPARRO 1415 

V 0744 

W 0 75 4 

X 0 76 7 

Y 1000 


EEE 

1011 




HERO 

1022 




0200 

6046 

TLS 


/CLEAR 

0201 

6032 

KCC 


/ FLAGS 

02 02 

73 00 

CL A 

CL L 


02 03 

13 56 

TAD 

MESS 

/I NTRODUCTOR Y 

02 04 

3010 

DC A 

PLACE 

/ DIALOGUE 

02 05 

43 26 

JMS 

PR INT 

/TYPE "*OPT-" 

02 06 

42 76 

JMS 

LISN 

/GET LETTER 

02 07 

4314 

JMS 

TYPE 

/ and echo IT 

0210 

4326 

JMS 

PRINT 


0211 

72 00 

CL A 



0212 

1337 

TAD 

LETTER 


0213 

1350 

TAD 

MT 

/IS IT 

0214 

7450 

SNA 


/ A "T"? 

0215 

52 25 

JMP 

SLOW 


0216 

7200 

CLA 



0217 

1337 

TAD 

LETTER 

/IS IT 

0220 

1351 

TAD 

MR 

/ AN ”R M ? 

0221 

7450 

SNA 



0222 

5232 

JMP 

QUICK 


0223 

4326 

JMS 

PRINT 


0224 

5741 

JMP 

I MONITOR 

/BAD CHARACTER. 


ABORT 
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0225 

1344 

SLOW, 

tad 

NOTHING 

/(DON'T ECHO) 

0226 

3346 


OCA 

ECHO 


0227 

1342 


tad 

LOW 

/(LOW SPEED PUNCH) 

02 30 

33 45 


oca 

PUNCH 


02 31 

5237 


JMP 

RE AO 


0232 

1342 

QUICK, 

TAD 

LOW 

/(ECHO ON TYPEWRITER) 

0233 

3346 


DC A 

ECHO 


0234 

1343 


TAD 

HIGH 

/(HIGH SPEED PUNCH) 

02 35 

33 45 


DC A 

PUNCH 


0236 

6022 


PCF 


/CLEAR FLAG 

0237 

4276 

READ, 

JMS 

LISN 

/READ A LETTER 

02 40 

1352 


TAD 

M2 40 

/TEST TO 

0241 

7510 


SPA 


/ see if the 

0242 

5237 


JMP 

READ 

/ LETTER IS 

0243 

7200 


CL A 


/OK 

0244 

1337 


TAD 

LETTER 


0245 

1353 


TAD 

M340 

/ (ACCEPTABLE 

0246 

7500 


SMA 


/ ranges 240-337) 

0247 

52 37 


JMP 

READ 


0250 

72 00 


CL A 


/ LETTER 

02 51 

1337 


TAD 

letter 

/ IS OK, 

02 52 

47 46 


JMS I 

ECHO 

/ SO ECHO IT. 

02 53 

73 00 


CLA CLL 



0254 

1337 


TAD 

LETTER 

/GET LETTER 

0255 

1352 


TAD 

M2 40 

/ AND SUBTRACT 240 

0256 

1376 


TAD 

START 

/start of table of contents 

0257 

3010 


DC A 

PLACE 

/STORE POINTER TO LETTER 

0260 

7040 


CM A 


/SUBTRACT ONE FOR AUTO-INDEX 

0261 

1410 


tad I 

PLACE 

/GET BEGINNING OF LETTER 

0262 

3010 


DC A 

PLACE 

/ AND STORE. 

0263 

1410 

PAT, 

TAD I 

PLACE 

/GET PATTERN 

0264 

7510 


SPA 


/ AND PUNCH 

02 65 

52 71 


JMP 

SKIP 

/ <0 MEANS END 

0266 

4745 


JMS I 

PUNCH 

/ OF LETTER. 

02 67 

7200 


CLA 



02 70 

5263 


JMP 

PAT 

/NEXT PATTERN 

0271 

3340 

SKIP, 

DC A 

COUNT 

/ SKIP number 

0272 

4745 


JMS I 

PUNCH 

/ OF SPACES 

0273 

2340 


ISZ 

COUNT 

/ INDICATED BY THE 

0274 

5272 


JMP 

.-2 

/ NEGATIVE NUMBER IN THE AC. 

0275 

5237 


JMP 

READ 


0276 

0000 

LISN, 

0000 


/READ 

0277 

6031 


KSF 


/ A LETTER 

0300 

5277 


JMP 

.-1 


0301 

6036 


KRB 



0302 

0354 


AND 

MASK 

/MAKE SURE THE EIGHTH 

0303 

1355 


TAD 

N200 

/ (PARITY) BIT IS ON. 

03 04 

33 37 


DC A 

LETTER 

/STORE IT 

03 05 

13 37 


TAD 

letter 


03 06 

1347 


TAD 

CONTRL 

/RETURN TO DISK MONITOR 

03 07 

74 50 


SNA 


/ SYSTEM if a control 

0310 

57 41 


JMP I 

MONI TOR 

/ C IS TYPED. 

0311 

7200 


CLA 



0312 

1337 


TAO 

LETTER 


0313 

56 76 


JMP I 

LISN 

/RETURN 

0314 

0000 

type. 

0000 


/SUBROUTINE TO 

0315 

6041 


TSF 


/ TYPE OR PUNCH 

0316 

5315 


JMP 

.-1 

/ ON THE LOW 

0317 

6046 


TLS 


/ SPEED PUNCH 

0320 

5714 


JMP I 

TYPE 







0321 

0000 

PUN* 

0000 


/SUBROUTINE 


0322 

6026 


PLS 


/ PUNCHES 

I 

0323 

6021 


PS F 


/ PATTERN IN 


0324 

5323 


JMP 

.-1 

/ ACCUMULATOR ON 


0325 

5721 


JMP I 

PUN 

/ HIGH SPEED PUNCH 

/-• 

0326 

0000 

PRINT. 

0000 


/SUBROUTINE 


0327 

7200 

CONTIN* 

CL A 


/ TYPES 


0330 

1410 


TAD I 

PLACE 

/ OUT 

' ■ 

0331 

7510 


SPA 


/ MESSAGE 


0332 

5726 


JMP I 

PRINT 

/ AND RETURNS 


0333 

4314 


JMS 

TYPE 

/ WHEN IT GETS 


0334 

5327 


JMP 

CONTIN 

/ A NUMBER < 0 


0335 

0000 

TACIT* 

0000 


/SUBROUTINE DOES 


0336 

5735 


JMP I 

TACIT 

/ ABSOLUTELY NOTHING 

/- 

0337 

00 00 

LETTER* 

00 00 




0340 

0000 

COUNT* 

0000 




0341 

7600 

MONITOR 

, 7600 


/SA OF DISK MONITOR 


0342 

0314 

LOW, 

TYPE 



A 

0343 

0321 

HIGH, 

PUN 



w 

0344 

0335 

NOTHING 

.TACIT 




03 45 

00 00 

PUNCH, 

0000 




0346 

0000 

ECHO, 

0000 




0347 

'7573 

CONTRL* 

7575 


/complement of control 


0350 

7454 

MT* 

7454 


/complement of "T” 


0351 

7456 

MR, 

7456 


/COMPLEMENT OF "R" 


0352 

7540 

M240, 

-240 



- 

0353 

74 40 

M3 40 , 

-340 




0354 

0177 

MASK, 

177 


/BITS 1-7 ON 


0355 

0200 

N200, 

200 


/BIT 8 ON 


0356 

0356 

MESS, 

MESS 


/PRINT MESSAGE 


0357 

0215 


215 


/carriage return 


0360 

0212 


212 


/LINE FEED 

/***“ 

0361 

02 52 


25 2 


/ » 


0362 

0317 


317 


/ 0 


0363 

0320 


32 0 


/ P 


0364 

0324 


324 


/ T 


03 65 

02 55 


25 5 


/ - 

0 

0366 

77 77 


-1 


/END 


0367 

0215 


215 


/CARRIAGE RETURN 


03 70 

0212 


212 


/LINE FEED 


03 71 

7777 


-1 


/END 


03 72 

0277 


277 


/ ? 


03 73 

02 15 


215 


/DON’T YOU KNOW 


03 74 

0212 


212 


/ WHAT THIS IS YET? 


03 75 

7777 


-1 


/END 


0376 

0376 
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START, START 

/POINTERS FOR LETTERS 

0377 

1402 

SPACE 

0400 

1244 

exclaim 

04 01 

1347 

QUOTE 

04 02 

1403 

TI CTACTOE 

0403 

1222 

DOLLAR 

0404 

1313 

PERCENT 

0405 

1132 

AMPERSAND 

0406 

1143 

APOSTROPHE 

0407 

1273 

LPAREN 

0410 

1361 

RPAREN 

0411 

1146 

ASTERISK 

0412 

1327 

PLUS 

0413 

1217 

COMMA 

0414 

1302 

MINUS 

0415 

1324 

PER I00 

0416 

1371 

SLASH 

0417 

1022 

EERO 

0420 

1034 

ONE 

0421 

1041 

TWO 

04 22 

1050 

THREE 

0423 

1057 

FOUR 

0424 

1067 

FIVE 

0425 

1076 

SIX 

0426 

1105 

SEVEN 

0427 

1114 

EIGHT 

0430 

1123 

NINE 

0431 

1214 

COLON 

0432 

1366 

SEMICOLON 

04 33 

12 56 

LESS THAN 

04 34 

12 33 

EQUALS 

04 35 

1247 

GREATER 

0436 

1340 

QUESTION 

04 37 

1157 

AT SI GN 

0440 

0477 

A 

04 41 

0507 

B 

04 42 

0516 

C 

0443 

0526 

D 

0444 

0536 

E 

0445 

0545 

F 

0446 

0554 

G 

0447 

0564 

H 

0450 

0574 

IYIYI 

0451 

0603 

J 

0452 

0612 

K 

0453 

0622 

L 

0454 

0631 

M 

0455 

0644 

N 

0456 

0655 

0 

0457 

0666 

P 

0460 

0675 

Q 

0461 

0706 

R 

0462 

0716 

S 

0463 

0725 

T 

0464 

0734 

U 

0465 

0744 

V 

0466 

0754 

W 

0467 

0767 

X 

0470 

1000 

Y 

0471 

1011 

ZEE 



04 72 

1265 


LBRACKET 

0473 

1203 


BACKSLASH 

0474 

1355 


RBRACKET 

0475 

1415 


UPARROW 

0476 

1171 


BACKARROW 

0477 

037 6 

A, 

376 

0500 

0377 


377 

0501 

0033 


033 

05 02 

00 33 


03 3 

0503 

0033 


03 3 

05 04 

03 77 


37 7 

0505 

0376 


376 

05 06 

77 76 


-2 

0507 

0377 

Q, 

377 

0510 

0377 


377 

0511 

0333 


333 

0512 

03 33 


33 3 

0513 

0377 


377 

0514 

0166 


16 6 

0515 

7776 


-2 

0516 

00 74 

C. 

07 4 

05 17 

0176 


17 6 

05 20 

03 03 


30 3 

05 21 

03 03 


30 3 

05 22 

03 03 


30 3 

05 23 

03 47 


34 7 

05 24 

01 46 


14 6 

05 25 

77 76 


-2 

0526 

03 77 

0, 

377 

05 27 

03 77 


37 7 

05 30 

03 03 


30 3 

0531 

0303 


303 

0532 

0303 


30 3 

0533 

0176 


176 

0534 

0074 


074 

0535 

7776 


-2 

05 36 

03 77 

E. 

37 7 

05 37 

03 77 


37 7 

0540 

0333 


333 

0541 

0333 


33 3 

05 42 

03 03 


30 3 

0543 

0303 


30 3 

05 44 

7776 


-2 

0545 

0377 

F, 

377 

0546 

0377 


377 

0547 

0033 


033 

0550 

00 33 


033 

0551 

0003 


003 

0552 

0003 


003 

0553 

7776 


-2 

0554 

0074 

G» 

074 

0555 

0176 


176 

0556 

0303 


303 

0557 

0323 


323 

0560 

0323 


323 

0561 

0367 


367 

0562 

0166 


166 

0563 

7776 


-2 




05 64 

03 77 

H 9 

377 

05 65 

0377 


37 7 

05 66 

00 30 


03 0 

05 67 

00 30 


03 0 

0570 

0030 


030 

0571 

0377 


377 

0572 

0377 


377 

0573 

7776 


-2 

05 74 

03 03 

IYIYI. 

30 3 

0575 

0303 


303 

0576 

0377 


377 

0577 

0377 


377 

0600 

0303 


303 

06 01 

0303 


303 

0602 

7776 


-2 

0603 

0140 

J * 

140 

0604 

0340 


340 

0605 

0300 


300 

06 06 

03 00 


30 0 

0607 

0377 


37 7 

0610 

0177 


177 

0611 

7776 


-2 

0612 

0377 

K, 

377 

0613 

0377 


377 

0614 

0030 


030 

0615 

0064 


064 

0616 

0146 


146 

0617 

0303 


303 

0620 

0201 


201 

0621 

7776 


-2 

06 22 

0377 

l> 

37 7 

0623 

0377 


377 

06 24 

0300 


300 

0625 

0300 


300 

06 26 

03 00 


30 0 

0627 

0300 


300 

0630 

7776 


-2 

0631 

0377 

M* 

377 

06 32 

03 77 


377 

0633 

0006 


006 

0634 

0014 


014 

0635 

0030 


030 

0636 

0030 


030 

06 37 

0014 


014 

06 40 

00 06 


00 6 

06 41 

03 77 


37 7 

0642 

0377 


37 7 

06 43 

77 76 


-2 

06 44 

03 77 

N* • 

37 7 

0645 

0376 


37 6 

06 46 

0004 


00 4 

06 47 

0010 


010 

0650 

0030 


030 

06 51 

00 60 


060 

0652 

0177 


177 

0653 

0377 


37 7 

0654 

7776 


-2 
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( 


0655 

0074 

0656 

0176 

06 57 

0303 

0660 

0303 

0661 

0303 

0662 

0303 

0663 

0176 

0664 

0074 

0665 

7776 

0666 

0377 

06 67 

03 77 

0670 

0033 

0671 

0033 

0672 

0037 

0673 

0016 

0674 

7776 

0675 

0074 

0676 

0176 

0677 

0303 

0700 

0303 

0701 

0323 

0702 

0343 

0703 

0176 

0704 

02 74 

0705 

7776 

07 06 

0377 

0707 

0377 

0710 

0033 

0711 

0073 

0712 

0177 

0713 

0316 

0714 

0200 

0715 

7776 

0716 

0156 

0717 

0337 

07 20 

03 33 

0721 

0333 

0722 

03 73 

07 23 

0166 

07 24 

77 76 

07 25 

00 03 

07 26 

00 03 

07 27 

03 77 

07 30 

03 77 

07 31 

00 03 

07 32 

00 03 

07 33 

77 76 

07 34 

00 77 

07 35 

0177 

07 36 

03 00 

0737 

0300 

0740 

0300 

0741 

0177 

07 42 

00 77 

07 43 

77 76 


0 » 074 

176 
303 
303 
303 
303 
176 
074 
-2 

P» 377 

37 7 
033 
033 
037 
016 
-2 

Q* 074 

176 
303 
303 
323 
343 

*176 

274 

-2 

R* 377 

37 7 
033 
073 
17 7 
316 
200 
-2 

S* 156 

33 7 
33 3 
333 
37 3 
16 6 
-2 

T* 00 3 

00 3 
37 7 
37 7 
00 3 
00 3 
-2 

U» 07 7 

177 
300 
300 
300 
177 
07 7 
-2 
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0751 

0017 

0752 

0007 

0753 

7776 

0754 

0377 

0755 

0377 

07 56 

0140 

0757 

0060 

0760 

0030 

0761 

00 30 

0762 

0060 

0763 

0140 

0764 

0377 

0765 

0377 

0766 

7776 

07 67 

03 03 

07 70 

0146 

07 71 

00 74 

07 72 

00 30 

0773 

00 30 

07 74 

00 74 

07 75 

0146 

07 76 

0303 

07 77 

7776 

1000 

0007 

10 01 

0017 

1002 

0030 

1003 

0370 

1004 

0370 

10 05 

0030 

1006 

0017 

10 07 

00 07 

1010 

7776 

1011 

03 03 

1012 

0343 

1013 

03 73 

1014 

0333 

1015 

0313 

1016 

0317 

1017 

0307 

1020 

0303 

1021 

7776 


017 

007 

-2 

W. 377 
377 
140 
060 
030 
030 
060 
140 
377 
377 
-2 

X. 303 
14 6 
07 4 
03 0 
030 
07 4 
146 
30 3 
-2 

Y. 007 
017 
030 
370 
370 
03 0 
017 
00 7 
-2 

ZEE. 30 3 

34 3 
37 3 
33 3 
313 
317 
307 
303 
-2 



/NUMBERS 


; ' ZERO, 274 

1023 0176 176 

1024 0343 343 

10 25 03 23 32 3 

1026 0313 313 

1027 0303 303 

1030 0307 307 

10 31 0176 17 6 

1032 0075 075 

10 33 77 76 -2 

1034 0302 ONE. 302 

10 35 03 77 37 7 

10 36 03 77 37 7 

10 37 03 00 30 0 

10 40 77 76 -2 

10 41 03 66 TWO. 36 6 

10 42 03 73 37 3 

10 43 03 33 33 3 

10 44 03 33 33 3 

^ 10 45 03 37 33 7 

10 46 0316 31 6 

10 47 77 76 -2 

10 50 0146 THREE. 14 6 

10 51 03 03 30 3 

10 52 03 03 30 3 

10 53 0313 313 

10 54 03 77 37 7 

10 55 0166 16 6 

10 56 77 76 -2 

1057 0037 FOUR. 037 

10 60 00 37 03 7 

10 61 00 30 03 0 

10 62 00 30 03 0 

10 63 03 76 37 6 

10 64 03 76 37 6 

10 65 00 30 03 0 

10 66 77 76 -2 

1067 0157 FIVE. 157 

^ 10 70 03 37 33 7 

10 71 03 33 33 3 

10 72 03 33 33 3 

1073 0373 373 

1074 0163 163 

1075 7776 -2 

1076 0176 SIX. 176 

1077 0377 377 

1100 0333 333 

1101 0333 333 

1102 0373 373 

1103 0166 166 

1104 7776 -2 

1105 0003 SEVEN. 003 

1106 0343 343 

1107 0363 363 

1110 00 33 03 3 

1111 0017 017 

1H2 0007 007 

1113 77 76 -2 
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1114 

0166 

EIGHT* 166 

1115 

0377 

377 

1116 

03 33 

33 3 

1117' 

03 33 

333 

1120 

03 77 

37 7 

1121 

0166 

166 

1122 

7776 

-2 

1123 

nu> 

Nl NE . 116 

1124 

0337 

33 7 

1125 

03 33 

33 3 

1126 

03 33 

33 3 

1127 

0377 

37 7 

1130 

0176 

176 

1131 

7776 

-2 

1132 

0166 

AMPERSAND, 166 

1133 

0377 

37 7 

1134 

0313 

313 

1135 

0337 

33 7 

1136 

0366 

366 

1137 

0140 

140 

1140 

0340 

340 

1141 

0200 

200 

1142 

77 76 

-2 

1143 

0007 

APOSTROPHE *0 07 

1144 

0007 

00 7 

1145 

7776 

-2 

1146 

0102 

ASTERISK,102 

1147 

0146 

146 

1150 

00 44 

04 4 

1151 

0333 

333 

1152 

03 33 

333 

1153 

0044 

044 

1154 

0146 

146 

1155 

0102 

102 

1156 

7776 

-2 

1157 

0074 

ATSIGN* 074 

1160 

0102 

102 

1161 

0231 

231 

1162 

02 45 

24 5 

1163 

02 45 

24 5 

1164 

02 35 

23 5 

1165 

02 41 

241 

1166 

0122 

12 2 

1167 

0074 

074 

1170 

77 76 

-2 

1171 

00 30 

BACK ARROW, 030 

1172 

0070 

070 

1173 

0174 

17 4 

1174 

0336 

33 6 

1175 

0232 

232 

1176 

0030 

030 

1177 

0030 

030 

1200 

0030 

030 

1201 

00 30 

03 0 

1202 

7776 

-2 


/PUNCTUATION 
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1203 

0003 

BACKSLASH.00 

1204 

0006 

006 

1205 

0004 

004 

1206 

0010 

010 

1207 

0030 

030 

1210 

0060 

060 

1211 

0140 

140 

1212 

0300 

30 0 

1213 

7776 

-2 

1214 

0306 

COLON, 306 

1215 

0306 

306 

1216 

7775 

-3 

1217 

0240 

COMMA, 240 

1220 

0140 

140 

1221 

7774 

-4 

1222 

0316 

DOLLAR, 316 

1223 

0337 

337 

1224 

0333 

333 

1225 

03 77 

37 7 

1226 

03 77 

37 7 

1227 

0333 

333 

• 1230 

03 73 

373 

1231 

0163 

16 3 

1232 

7776 

-2 

1233 

0066 

EQUALS, 066 

1234 

0066 

066 

12 35 

00 66 

06 6 

1236 

0066 

06 6 

1237 

00 66 

06 6 

12 40 

00 66 

066 

1241 

0066 

06 6 

1242 

00 66 

06 6 

12 43 

77 76 

-2 

12 44 

03 37 

EXCLAIM, 337 

12 45 

03 37 

33 7 

12 46 

77 76 

-2 

12 47 

02 01 

GREA TER, 201 

12 50 

03 03 

30 3 

12 51 

01 46 

14 6 

12 52 

00 64 

06 4 

12 53 

00 30 

03 0 

12 54 

00 10 

010 

12 55 

77 76 

-2 

12 56 

00 10 

LESS THAN.010 

12 57 

00 30 

03 0 

12 60 

00 64 

06 4 

12 61 

0146 

14 6 

12 62 

03 03 

30 3 

1263 

0201 

201 

12 64 

77 76 

-2 

12 65 

00 00 

LB RACKET .0 00 

12 66 

00 00 

00 0 

12 67 

03 77 

37 7 

12 70 

03 77 

37 7 

12 71 

03 03 

30 3 

12 72 

7776 

-2 
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12 73 

00 00 

12 74 

00 00 

12 75 

0174 

12 76 

0176 

1277 

0303 

1300 

0201 

1301 

7776 

1302 

0030 

1303 

0030 

1304 

0030 

1305 

0030 

1306 

00 30 

1307 

0030 

1310 

00 30 

1311 

00 30 

1312 

77 76 

1313 

03 06 

1314 

0151 

1315 

00 71 

1316 

00 36 

1317 

0150 

1320 

0224 

1321 

0226 

1322 

0143 

1323 

7776 

1324 

0300 

1325 

03 00 

13 26 

77 76 

* 1J27 

0030 

1330 

00 30 

1331 

00 30 

13 32 

03 77 

13 33 

03 77 

1334 

00 30 

1335 

0030 

13 36 

00 30 

1337 

7776 

13 40 

00 06 

1341 

0003 

1342 

0333 

1343 

0333 

1344 

0007 

1345 

0006 

13 46 

77 76 

13 47 

0007 

1350 

0007 

1351 

0000 

13 52 

0007 

1353 

0007 

13 54 

77 76 

1355 

0303 

1356 

0377 

1357 

0377 

1360 

7774 

1361 

0201 

1362 

0303 

1363 

0176 

1364 

0074 

1365 

7774 


LPAREN. 00 0 
00 0 
17 4 
176 
303 
201 
-2 

MINUS* 030 
03 0 
030 
030 
030 
030 
030 
03 0 
-2 

PERCENT* 306 
151 
071 
03 6 
15 0 
224 
226 
143 
-2 

PERIOD. 300 
30 0 
-2 

PLUS. 030 
03 0 
030 
37 7 
37 7 
03 0 
030 
03 0 
-2 

QUESTI ON .006 
003 
333 
333 
00 7 
006 
-2 

QUOTE, 00 7 
00 7 
000 
00 7 
00 7 
-2 

RBRACKET.303 
377 
377 
-4 

RPAREN, 201 
303 
176 
074 
-4 






13 66 

02 46 

SEMI COLON* 24e 

13 67 

0146 

14 6 

13 70 

77 75 

-3 

1371 

03 00 

SLASH. 300 

13 72 

0140 

140 

1373 

0060 

06 0 

13 74 

00 30 

03 0 

13 75 

0010 

010 

1376 

00 04 

00 4 

1377 

0006 

00 6 

1400 

0003 

003 

1401 

7776 

-2 

1402 

7773 

SPACE. -5 

1403 

0146 

TICTACT0E.146 

1404 

0146 

146 

1405 

0377 

377 

1406 

0377 

377 

1407 

0146 

146 

1410 

0377 

377 

1411 

0377 

377 

1412 

0146 

146 

1413 

0146 

146 

1414 

7776 

-2 

1415 

0004 

UPARROW,004 

1416 

0006 

006 

1417 

0377 

377 

14 20 

0377 

37 7 

1421 

0006 

006 

1422 

0004 

004 

1423 

7776 

-2 

PLACE=10 
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The following pverJLay can be .used with th e le t te r ing program in order__to_ 


rea d from the high speed reader. It should be loaded, after the lettering 
program and the result started at 200, Be sure to have the symbolic 
tap e t o be punc hed in t he high speed reade r.before_starting_the 


BLANK 0216 


ECHO 

LETTER 

LISN 

0346 

0337 

0276 

---- 

-- - 



MASK 

MCR 

0354 

0215 





N200 

PUN 

0355 




PUNCH 

0345 





read 

0237 





TACIT 

0335 





TEST 

0204 




, ... 4 ... 



*203 



--- 

0203 

5236 


JMP 

READ-l 

/AVOID INTRODUCTORY DIALOGUE 

0204 

7200 

TEST, 

CLA 


____*_'_ , 

0205 

1215 


TAD 

MCR 

/SEE IF IT’S A 

0206 

1337 


TAD 

LETTER 

/CARRIAGE RETURN 

0207 

7440 


SZA 



0210 

5237 


JMP 

READ 


0211 

1216 


TAD 

BLANK 

/IF IT IS, 

0212 

3337 


DCA 

LETTER 

/ CONSIDER IT 

0213 

1337 


TAD 

LETTER 

/ AS A BLANK. 

0214 

5240 


JMP 

READ+1 


0215 

7563 

MCR, 

7563 


/COMPLEMENT OF CARRIAGE RETURN 

0216 

0240 

BLANKj 

240 


/CODE FOR BLANK 

0242 

5204 

*242 

JMP 

TEST 

/CHECK FOR CR BEFORE REJECTING 



*277 




0277 

6014 


RFC 


/FETCH CHARACTER 

0300 

6011 


RSF 


/ AND WAIT UNTIL 

0301 

5300 


JMP 

.-1 

/ IT ARRIVES 

0302 

7300 


CLA CLL 



0303 

6012 


RRB 


/READ READER BUFFER 

0304 

0354 


AND 

MASK 

/MAKE SURE THE EIGHTH 

0305 

1355 


TAD 

N200 

/ (PARITY) BIT IS ON. 

0306 

3337 


DCA 

LETTER 

/STORE LETTER 

0307 

1337 


TAD 

LETTER 


0310 

5676 


JMP I 

LISN 

/RETURN 



*345 




0345“ 

0321 

PUNCH, 

PUN 


/USE HIGH SPEED PUNCH 

0346 

0335 

ECHO, 

TACIT 


/DON'T ECHO CHARACTERS 



PUN=321 





LETTER=337 



-- 


TACIT 

:335 





READ: 

237 


_____ _. . ... 



LISN: 

276 





MASK: 

354 





N200: 

355 
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